home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1993 / 12 / 02 / tips & tricks / clockdemo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1995-06-01  |  1.8 KB  |  58 lines
  1. {***************************************************}
  2. { ClockDemo.pas                                     }
  3. {                                                   }
  4. { Benötigt die utility.library und das              }
  5. { Battclock.resource                                }
  6. { Läuft erst ab OS 2.0                              }
  7. {***************************************************}
  8. PROGRAM ClockDemo;
  9.  
  10. Uses Exec, Utility, BattClock;
  11.  
  12. VAR
  13.   { Hier legen wir die benötigten Daten ab }
  14.   Current  : pClockData;
  15.  
  16. BEGIN
  17.   { Öffnen der utility.library }
  18.   UtilityBase:=OpenLibrary('utility.library',36);
  19.   { Öffnen der Ressource }
  20.   BattClockBase:=OpenResource(BATTCLOCKNAME);
  21.  
  22.   IF (BattClockBase<>NIL)AND(UtilityBase<>NIL) THEN
  23.     BEGIN
  24.       { Speicher für die Daten bereitstellen }
  25.       NEW(Current);
  26.       { Konvertiere das Amiga-Datum }
  27.       Amiga2Date(ReadBattClock,Current);
  28.  
  29.       write('Aktuelle Zeit: ');
  30.       writeln(Current^.hour,':',Current^.min,':',
  31.                                    Current^.sec);
  32.       write('Aktuelles Datum: ');
  33.       writeln(Current^.mday,'-',Current^.month,'-',
  34.                                   Current^.year);
  35.       write('Wochentag: ');
  36.       CASE Current^.wday OF
  37.         1: Writeln('Montag');     { Current^.wday=1 }
  38.         2: Writeln('Dienstag');   { Current^.wday=2 }
  39.         3: Writeln('Mittwoch');   { Current^.wday=3 }
  40.         4: Writeln('Donnerstag'); { Current^.wday=4 }
  41.         5: Writeln('Freitag');    { Current^.wday=5 }
  42.         6: Writeln('Samstag');    { Current^.wday=6 }
  43.         7: Writeln('Sonntag');    { Current^.wday=7 }
  44.       END;
  45.  
  46.       CloseLibrary(UtilityBase);
  47.     END
  48.   ELSE
  49.     IF BattClockBase=NIL THEN
  50.       BEGIN
  51.         Writeln('Das Battclock.Ressource ließ sich
  52.                                    nicht öffnen');
  53.         CloseLibrary(UtilityBase);
  54.       END
  55.     ELSE
  56.       Writeln('Fehler bei Utility.library');
  57. END.
  58.